1 REM --------------------------------- 2 REM FREEWARE 01.10.1995 BY ALEX ZOP 3 REM --------------------------------- 4 REM 73+74 FUER INHALTSTXT (KURZ/LANG) 6 REM 1007-1015 FUER XDOK.ANLEITUNGEN 9 REM --------------------------------- 10 PRINT CHR$(142): 15 PRINT"[155][147]";:POKE808,237:POKE53280,0:POKE53281,0 : REM ^ DISABLE 'STOP' 30 PRINT"[158]========================================" 31 PRINT"[145][158]BROTKASTEN ROCKFORD-FREEWARE DISKETTE!!" 32 PRINT"[145][158]========================================" 40 PRINT"[158]----------------------------------------" 45 PRINT"[145][155]UM DIE PROGRAMME DIESER ROCKFORD-FD DISK" 46 PRINT"[145]PROBLEMLOS ANZUWENDEN, KANNST DU NUN DIE" 47 PRINT"[145]INHALTSBESCHREIBUNG MIT ALLEN WICHTIGEN" 48 PRINT"INFORMATIONEN, KURZANLEITUNGEN, UND DEN" 49 PRINT"COPYRIGHT-HINWEISEN AM BILDSCHIRM LESEN" 50 PRINT"ODER AUCH AUSDRUCKEN LASSEN. VIEL SPASS!" 55 PRINT"[145][158]----------------------------------------" 60 PRINT"[158]----------------------------------------" 61 PRINT"[145][155]NATUERLICH KANNST DU AUCH ALLE WEITEREN" 62 PRINT"TEXTE DIESER ROCKFORD-FD DISKETTE LESEN!" 63 PRINT"[145][158]----------------------------------------" 64 PRINT" WELCHE TEXTE WILLST DU LESEN?" 65 PRINT" <[155]I[158]>NHALT <[155]A[158]>LEITUNGEN [145][145][145]" 66 GETZ$:IFZ$=""THEN66 67 IFZ$="A"GOTO1000 68 IFZ$="I"GOTO71 70 IFZ$<>""THEN66 71 PRINT" <[155]K[158]>URZ- O. <[155]U[158]>MFASSENDER INHALTSTEXT?" 72 GET O$:IF O$=""THEN72 73 IF O$="K"THEN B$="KURZI*":GOTO80 74 IF O$="U"THEN B$="INHALT*":GOTO80 75 IF O$<>""THEN72 80 PRINT"[145][145][145][158] WOHIN SOLL ICH DEN TEXT SCHREIBEN? " 85 PRINT" [155]<[158]M[155]>ONITOR [151]<[158]D[151]>RUCKER NDE " 90 GETG$:IFG$=""THEN90 95 IFG$="E"THEN470 100 IFG$="M"GOTO240 105 IFG$="D"THEN230 110 IFG$<>""THEN90 230 OPEN1,4,7:Q=1 240 OPEN5,8,5,B$+",S,R":GOSUB420 245 PRINT"[147][144]POKE53280,0:POKE53281,0 250 [153]"SYSTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 260 [153]"ONSTR$RUECKE (null)(null)ATNLENVAL O. (null)VAL(null)(null)(null)(null) UM DEN (null)EXTFLUSS" 270 [153]"ONANZUHALTEN. STR$RUECKE NOCHMALS UM WEITER- " 280 [153]"ONZULESEN! (null)IT >(null)< BEENDEST STR$U DAS (null)(null)CHR$! " 290 [153]"ONTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANLIST" 300 [161]#5,F$ 310 [139]ST[178]0[167]330 320 [139]ST[178]64[167]440 330 [139]Q[179][177]1[167][153]F$;:[137]350 340 [152]1,F$; 350 [161]A$ 360 [139]A$[179][177]""[167][141]380 370 [137]300 380 [139]A$[178]"Q"[167]440 390 [161]A$:[139]A$[178]""[167]390 400 [139]A$[178]"Q"[167]440 410 [142] 420 [160]15:[159]15,8,15:[132]15,D,E$,F,G 430 [142] 440 Q[178]0:[160]1:[160]5:[137] 470 470 [151]808,237:[153]" ON":[137]490 490 [151]631,13:[151]632,13:[151]198,2:[128] 900 [161]G$:[139]G$[178]""[167]90 1000 [153]"LISTLOAD";:[151]808,237:[151]53280,0:[151]53281,0 : [143] ^ DISABLE 'STOP' 1001 [153]"LOADSYS========================================" 1002 [153]"ONSYSBROTKASTEN ROCKFORD-FREEWARE DISKETTE!!" 1003 [153]"ONSYS========================================" 1004 [153]"POKESYS----------------------------------------" 1005 [153]"ONPOKEFUER WELCHES PRG WILLST DU DIE ANLEITUNG?" 1006 [153]"ON LESEN ODER AUSDRUCKEN: " 1007 [153]""[166]10)"LISTGDS 128" 1008 [153]""[166]10)"LISTVGIF 64" 1009 [153]""[166]10)"LISTGIFFY REU" 1050 [153]"SYS----------------------------------------" 1052 [153]"ONSYSWAEHLE DEN JEWEILIGEN ANFANGSBUCHSTABEN!" 1053 [153]"ONSYS----------------------------------------" 1060 [161]W$:[139]W$[178]""[167]1060 1061 [139]W$[178]"1"[167] B$[178]"GDS DOCS*":[137]80 1062 [139]W$[178]"2"[167] B$[178]"DOC.VGIF6*":[137]80 1063 [139]W$[178]"3"[167] B$[178]"GIFFY.REU*":[137]80 1070 [139]W$[179][177]""[167]1060 1071 [137]80 3002 [153]"ONSYS----------------------------------------" 3006 [137] 1000